这个需求源于要批量生成模板一样的word文档。当然可以直接使用word的邮件合并功能,点菜单就可以实现,示例代码如下:
要使用这些代码,需要引用2个库microsoft word,microsoft office,如果使用到客体界面的话,还要引用microsoft Forms。本代码可以同时利用两个模板生成新的文档。其原理就是查找替换,没啥,减轻工作量。
Sub cmdPrinta_Click()
Dim mypath$, mypathN$, aar1
Dim r1%, r2%, n2%, j%
Dim Wordapp As Word.Application
Dim WordD As Word.Document '定义word类
Set Wordapp = New Word.Application '这里需要一个新的
'Wordapp.ScreenUpdating =False '屏幕刷新
'Set WordD = Wordapp.Documents.Add '新建文档
If Len(txtlujing) > 1 Then
mypathN = txtlujing
Else
mypathN = ThisWorkbook.Path & "\"
End If
mypath = ThisWorkbook.Path & "\"
'初始化参数,要替换
aar1 = Sheets("说明文字").Range("c5:d23")
tbldata = "sheet1"
tepdoc1 =